home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs03.d81
/
ba_v6_1.sda
/
MENU
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
2KB
|
47 lines
2 POKE53280,0:POKE53281,0:PRINTCHR$(142):POKE788,52:POKE792,193
20 PRINT"[147][154] B A N K A C C O U N T S "
22 C1$="":C2$="[154]":AN=1
24 SL$(1)=" USE YOUR ACCOUNTS "
26 SL$(2)=" START AN ACCOUNT "
28 SL$(3)=" PROGRAM INFORMATION "
30 SL$(4)=" PROGRAM MODIFICATIONS "
31 SL$(5)=" SEARCH YOUR FILES "
32 SL$(6)=" MAILING LABELS "
34 SL$(7)=" RETURN TO BASIC "
36 PRINT" [150]DESIGNED AND WRITTEN BY"
38 PRINT" [154]JIM ABRONSKI"
40 PRINT" [150]COPYRIGHT 1988"
42 PRINT"[158] USE UP [158][146] OR DOWN [146][158] TO CHOOSE:"
44 FORX=1TO7:PRINT" ";C1$;SL$(X):NEXTX
46 PRINT"[158] PRESS RETURN [146][158] TO ENTER SELECTION.[145]":GOSUB84
48 IFAN>7THENGOSUB86:GOTO48
50 G1$="BANK ACCOUNTS":IFAN=3THENG1$="PROGRAM INFO."
52 IFAN=2THENG1$="START ACCT."
54 IFAN=4THENG1$="MODIFICATIONS"
55 IFAN=5THENG1$="FILE SEARCH"
56 IFAN=6THENG1$="MAILING LABELS"
58 IFAN=7THENSYS64738
60 PRINT"[147] *** [158]ONE MOMENT PLEASE ***"
64 PRINT"[144]LOAD"CHR$(34)G1$;
66 PRINT CHR$(34)",8";
68 POKE198,5:POKE631,13:POKE632,82:POKE633,85:POKE634,78:POKE635,13:END
84 PRINT" ";C2$;SL$(1)
86 GETAN$:IFAN$<>""THEN98
88 JV=PEEK(56320):FR=JVAND16:JV=15-(JVAND15)
90 IFJV=1THENAN$=CHR$(145):FORT=1TO30:NEXTT:GOTO98
92 IFJV=2THENAN$=CHR$(17):FORT=1TO30:NEXTT:GOTO98
94 IFFR<>16THENAN$=CHR$(13):FORT=1TO30:NEXTT:GOTO98
96 GOTO86
98 IFAN$=CHR$(13)THENRETURN
100 IFAN$=CHR$(145)ORAN$=CHR$(29)THEN106
102 IFAN$=CHR$(17)THEN114
104 GOTO86
106 LN=AN:AN=AN-1:IFAN=0THENAN=7
108 PRINT"[145] ";C1$;SL$(LN)
110 IFLN=1THENPRINT" ";C2$;SL$(AN):GOTO86
112 PRINT"[145][145][145] ";C2$;SL$(AN):GOTO86
114 LN=AN:AN=AN+1:IFAN=8THENAN=1
116 PRINT"[145] ";C1$;SL$(LN)
118 IFLN=7THENPRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145] ";C2$;SL$(AN):GOTO86
120 PRINT" ";C2$;SL$(AN):GOTO86